object DMGeral: TDMGeral
  OldCreateOrder = False
  Height = 361
  Width = 529
  object IB_Conexao: TIB_Connection
    PasswordStorage = psNotSecure
    SQLDialect = 3
    Params.Strings = (
      'USER NAME=SYSDBA'
      'SQL DIALECT=3'
      'SERVER=10.42.43.8'
      
        'PATH=C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC' +
        '.FDB'
      'FORCED WRITES=TRUE'
      'RESERVE PAGE SPACE=TRUE')
    Left = 48
    Top = 8
    SavedPassword = '.JuMbLe.01.432B0639073E0E4B49'
  end
  object IB_Trans: TIB_Transaction
    IB_Connection = IB_Conexao
    Isolation = tiCommitted
    Left = 128
    Top = 8
  end
  object qDataMovimento: TIB_Cursor
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'SELECT CURRENT_TIMESTAMP AS DATAHORA'
      'FROM RDB$DATABASE')
    Left = 200
    Top = 8
  end
  object qCidade: TIB_Query
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    FieldsDisplayLabel.Strings = (
      'CIDADENOME=Nome'
      'CIDADEUF=C'#243'digo'
      'CIDADECODIGO=C'#243'digo')
    FieldsDisplayWidth.Strings = (
      'CIDADENOME=310'
      'CIDADEUF=80'
      'CIDADECODIGO=80')
    FieldsVisible.Strings = (
      'DB_KEY=FALSE')
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'SELECT C.CIDADENOME'
      '      ,C.CIDADEUF'
      '      ,C.CIDADECODIGO'
      'FROM CIDADE C'
      'ORDER BY C.CIDADENOME')
    OrderingItemNo = 1
    OrderingItems.Strings = (
      'Nome=CIDADENOME'
      'C'#243'digo=CIDADEUF'
      'C'#243'digo=CIDADECODIGO')
    OrderingLinks.Strings = (
      'CIDADENOME=ITEM=1'
      'CIDADEUF=ITEM=2'
      'CIDADECODIGO=ITEM=3')
    SearchingLinks.Strings = (
      'CIDADENOME=CIDADENOME'
      'CIDADEUF=CIDADEUF'
      'CIDADECODIGO=CIDADECODIGO')
    Left = 48
    Top = 64
  end
  object qCidade_Local: TIB_Cursor
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'SELECT C.CIDADENOME'
      '      ,C.CIDADEUF'
      '      ,C.CIDADECODIGO'
      'FROM CIDADE C'
      'WHERE C.CIDADECODIGO = :CODIGO')
    Left = 48
    Top = 112
  end
  object Cidade_Manut: TIB_StoredProc
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'EXECUTE PROCEDURE CIDADE_MANUT'
      '  ?CIDADE_MANUT.CIDADECODIGO,'
      '  ?CIDADE_MANUT.CIDADENOME,'
      '  ?CIDADE_MANUT.CIDADEUF,'
      '  ?CIDADE_MANUT.PACAO')
    AutoDefineParams = False
    ParamNames.Strings = (
      'CIDADE_MANUT.CIDADECODIGO'
      'CIDADE_MANUT.CIDADENOME'
      'CIDADE_MANUT.CIDADEUF'
      'CIDADE_MANUT.PACAO')
    StoredProcName = 'CIDADE_MANUT'
    Left = 48
    Top = 168
  end
  object qNacionalidade: TIB_Query
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    FieldsDisplayLabel.Strings = (
      'NACIONALIDADENOME=Nome'
      'NACIONALIDADECODIGO=C'#243'digo')
    FieldsDisplayWidth.Strings = (
      'NACIONALIDADENOME=310'
      'NACIONALIDADECODIGO=80')
    FieldsVisible.Strings = (
      'DB_KEY=FALSE')
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'SELECT N.NACIONALIDADENOME'
      '      ,N.NACIONALIDADECODIGO'
      'FROM NACIONALIDADE N'
      'ORDER BY N.NACIONALIDADENOME')
    OrderingItemNo = 1
    OrderingItems.Strings = (
      'Nome=NACIONALIDADENOME'
      'C'#243'digo=NACIONALIDADECODIGO')
    OrderingLinks.Strings = (
      'NACIONALIDADENOME=ITEM=1'
      'NACIONALIDADECODIGO=ITEM=2')
    SearchingLinks.Strings = (
      'NACIONALIDADENOME=NACIONALIDADENOME'
      'NACIONALIDADECODIGO=NACIONALIDADECODIGO')
    Left = 144
    Top = 64
  end
  object qNacionalidade_Local: TIB_Cursor
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'SELECT N.NACIONALIDADENOME'
      '      ,N.NACIONALIDADECODIGO'
      'FROM NACIONALIDADE N'
      'WHERE N.NACIONALIDADECODIGO = :CODIGO')
    Left = 144
    Top = 112
  end
  object Nacionalidade_Manut: TIB_StoredProc
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'EXECUTE PROCEDURE NACIONALIDADE_MANUT'
      '  ?NACIONALIDADE_MANUT.NACIONALIDADECODIGO,'
      '  ?NACIONALIDADE_MANUT.NACIONALIDADENOME,'
      '  ?NACIONALIDADE_MANUT.PACAO')
    AutoDefineParams = False
    ParamNames.Strings = (
      'NACIONALIDADE_MANUT.NACIONALIDADECODIGO'
      'NACIONALIDADE_MANUT.NACIONALIDADENOME'
      'NACIONALIDADE_MANUT.PACAO')
    StoredProcName = 'NACIONALIDADE_MANUT'
    Left = 144
    Top = 168
  end
  object qProfissao: TIB_Query
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    FieldsDisplayLabel.Strings = (
      'PROFISSAONOME=Nome'
      'PROFISSAOCODIGO=C'#243'digo')
    FieldsDisplayWidth.Strings = (
      'PROFISSAONOME=310'
      'PROFISSAOCODIGO=80')
    FieldsVisible.Strings = (
      'DB_KEY=FALSE')
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'SELECT P.PROFISSAONOME'
      '      ,P.PROFISSAOCODIGO'
      'FROM PROFISSAO P'
      'ORDER BY P.PROFISSAONOME')
    OrderingItemNo = 1
    OrderingItems.Strings = (
      'Nome=PROFISSAONOME'
      'C'#243'digo=PROFISSAOCODIGO')
    OrderingLinks.Strings = (
      'PROFISSAONOME=ITEM=1'
      'PROFISSAOCODIGO=ITEM=2')
    SearchingLinks.Strings = (
      'PROFISSAONOME=PROFISSAONOME'
      'PROFISSAOCODIGO=PROFISSAOCODIGO')
    Left = 251
    Top = 64
  end
  object qProfissao_Local: TIB_Cursor
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'SELECT P.PROFISSAONOME'
      '      ,P.PROFISSAOCODIGO'
      'FROM PROFISSAO P'
      'WHERE P.PROFISSAOCODIGO = :CODIGO')
    Left = 251
    Top = 112
  end
  object Profissao_Manut: TIB_StoredProc
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'EXECUTE PROCEDURE PROFISSAO_MANUT'
      '  ?PROFISSAO_MANUT.PROFISSAOCODIGO,'
      '  ?PROFISSAO_MANUT.PROFISSAONOME,'
      '  ?PROFISSAO_MANUT.PACAO')
    AutoDefineParams = False
    ParamNames.Strings = (
      'PROFISSAO_MANUT.PROFISSAOCODIGO'
      'PROFISSAO_MANUT.PROFISSAONOME'
      'PROFISSAO_MANUT.PACAO')
    StoredProcName = 'PROFISSAO_MANUT'
    Left = 251
    Top = 168
  end
  object qVendedor: TIB_Query
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    FieldsDisplayLabel.Strings = (
      'VENDEDORNOME=Nome'
      'VENDEDORCODIGO=C'#243'digo')
    FieldsDisplayWidth.Strings = (
      'VENDEDORNOME=310'
      'VENDEDORCODIGO=80')
    FieldsVisible.Strings = (
      'DB_KEY=FALSE')
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'SELECT V.VENDEDORNOME'
      '      ,V.VENDEDORCODIGO'
      'FROM VENDEDOR V'
      '/*3*/'
      'ORDER BY V.VENDEDORNOME')
    OrderingItemNo = 1
    OrderingItems.Strings = (
      'Nome=VENDEDORNOME'
      'C'#243'digo=VENDEDORCODIGO')
    OrderingLinks.Strings = (
      'VENDEDORNOME=ITEM=1'
      'VENDEDORCODIGO=ITEM=2')
    SearchingLinks.Strings = (
      'VENDEDORNOME=VENDEDORNOME'
      'VENDEDORCODIGO=VENDEDORCODIGO')
    Left = 344
    Top = 64
  end
  object qVendedor_Local: TIB_Cursor
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'SELECT V.VENDEDORNOME'
      '      ,V.VENDEDORCODIGO'
      '      ,V.VENDEDORATIVO'
      '      ,V.VENDEDOROBS'
      'FROM VENDEDOR V'
      'WHERE V.VENDEDORCODIGO = :CODIGO'
      '/**/')
    Left = 344
    Top = 112
  end
  object Vendedor_Manut: TIB_StoredProc
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'EXECUTE PROCEDURE VENDEDOR_MANUT'
      '  ?VENDEDOR_MANUT.VENDEDORCODIGO,'
      '  ?VENDEDOR_MANUT.VENDEDORNOME,'
      '  ?VENDEDOR_MANUT.VENDEDORATIVO,'
      '  ?VENDEDOR_MANUT.VENDEDOROBS,'
      '  ?VENDEDOR_MANUT.PACAO')
    AutoDefineParams = False
    ParamNames.Strings = (
      'VENDEDOR_MANUT.VENDEDORCODIGO'
      'VENDEDOR_MANUT.VENDEDORNOME'
      'VENDEDOR_MANUT.VENDEDORATIVO'
      'VENDEDOR_MANUT.VENDEDOROBS'
      'VENDEDOR_MANUT.PACAO')
    StoredProcName = 'VENDEDOR_MANUT'
    Left = 344
    Top = 168
  end
  object qAluno: TIB_Query
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    FieldsDisplayLabel.Strings = (
      'ALUNONOME=Nome'
      'ALUNOCPF=C.P.F'
      'ALUNOCODIGO=C'#243'digo')
    FieldsDisplayWidth.Strings = (
      'ALUNONOME=310'
      'ALUNOCPF=100'
      'ALUNOCODIGO=80')
    FieldsVisible.Strings = (
      'DB_KEY=FALSE')
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'SELECT A.ALUNONOME'
      '      ,A.ALUNOCPF'
      '      ,A.ALUNOCODIGO'
      'FROM ALUNO A'
      'ORDER BY A.ALUNONOME')
    OrderingItemNo = 1
    OrderingItems.Strings = (
      'Nome=ALUNONOME'
      'C.P.F=ALUNOCPF'
      'C'#243'digo=ALUNOCODIGO')
    OrderingLinks.Strings = (
      'ALUNONOME=ITEM=1'
      'ALUNOCPF=ITEM=2'
      'ALUNOCODIGO=ITEM=3')
    SearchingLinks.Strings = (
      'ALUNONOME=ALUNONOME'
      'ALUNOCPF=ALUNOCPF'
      'ALUNOCODIGO=ALUNOCODIGO')
    Left = 440
    Top = 64
  end
  object qAluno_Local: TIB_Cursor
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'SELECT A.ALUNONOME'
      '      ,A.ALUNOCPF'
      '      ,A.ALUNOCODIGO'
      '      ,A.ALUNOMAE'
      '      ,A.ALUNOPAI'
      '      ,A.ALUNODATANASC'
      '      ,A.ALUNOSEXO'
      '      ,A.ALUNOSANGUE'
      '      ,A.ALUNODOADOR'
      '      ,A.ALUNODOCNUM'
      '      ,A.ALUNODOCORGEXP'
      '      ,A.ALUNODOCUF'
      '      ,A.ALUNOESCOLARIDADE'
      '      ,A.ALUNOESTADOCIVIL'
      '      ,A.ALUNOENDERECO'
      '      ,A.ALUNONUMERO'
      '      ,A.ALUNOBAIRRO'
      '      ,A.ALUNOCEP'
      '      ,A.ALUNOTELEFONE'
      '      ,A.ALUNOCELULAR'
      '      ,A.ALUNOEMAIL'
      '      ,A.ALUNOOBS'
      '      ,A.CIDADECODIGO'
      '      ,A.NACIONALIDADECODIGO'
      '      ,A.PROFISSAOCODIGO'
      '      ,A.VENDEDORCODIGO'
      '      ,A.TIPODOCCODIGO'
      '      ,A.NATURALIDADECODIGO'
      '      ,C.CIDADENOME'
      '      ,C.CIDADEUF'
      '      ,N.NACIONALIDADENOME'
      '      ,P.PROFISSAONOME'
      '      ,V.VENDEDORNOME'
      '      ,T.TIPODOCNOME'
      '      ,M.CIDADENOME NATURALIDADENOME'
      'FROM ALUNO A'
      
        '  INNER JOIN CIDADE        C ON A.CIDADECODIGO        = C.CIDADE' +
        'CODIGO'
      
        '  INNER JOIN NACIONALIDADE N ON A.NACIONALIDADECODIGO = N.NACION' +
        'ALIDADECODIGO'
      
        '  INNER JOIN PROFISSAO     P ON A.PROFISSAOCODIGO     = P.PROFIS' +
        'SAOCODIGO'
      
        '  INNER JOIN VENDEDOR      V ON A.VENDEDORCODIGO      = V.VENDED' +
        'ORCODIGO'
      
        '  INNER JOIN TIPODOC       T ON A.TIPODOCCODIGO       = T.TIPODO' +
        'CCODIGO'
      
        '  INNER JOIN CIDADE        M ON A.NATURALIDADECODIGO  = C.CIDADE' +
        'CODIGO'
      'WHERE A.ALUNOCODIGO = :CODIGO')
    Left = 440
    Top = 112
  end
  object Aluno_Manut: TIB_StoredProc
    DatabaseName = 'C:\Desenvolvimento\Delphi\AutoEscolaCFC\Dados\AUTOESCOLACFC.FDB'
    IB_Connection = IB_Conexao
    IB_Transaction = IB_Trans
    SQL.Strings = (
      'EXECUTE PROCEDURE ALUNO_MANUT'
      '  ?ALUNO_MANUT.ALUNOCODIGO,'
      '  ?ALUNO_MANUT.ALUNONOME,'
      '  ?ALUNO_MANUT.ALUNOMAE,'
      '  ?ALUNO_MANUT.ALUNOPAI,'
      '  ?ALUNO_MANUT.ALUNODATANASC,'
      '  ?ALUNO_MANUT.ALUNOCPF,'
      '  ?ALUNO_MANUT.ALUNOSEXO,'
      '  ?ALUNO_MANUT.ALUNOSANGUE,'
      '  ?ALUNO_MANUT.ALUNODOADOR,'
      '  ?ALUNO_MANUT.ALUNODOCNUM,'
      '  ?ALUNO_MANUT.ALUNODOCORGEXP,'
      '  ?ALUNO_MANUT.ALUNODOCUF,'
      '  ?ALUNO_MANUT.ALUNOESCOLARIDADE,'
      '  ?ALUNO_MANUT.ALUNOESTADOCIVIL,'
      '  ?ALUNO_MANUT.ALUNOENDERECO,'
      '  ?ALUNO_MANUT.ALUNONUMERO,'
      '  ?ALUNO_MANUT.ALUNOBAIRRO,'
      '  ?ALUNO_MANUT.ALUNOCEP,'
      '  ?ALUNO_MANUT.ALUNOTELEFONE,'
      '  ?ALUNO_MANUT.ALUNOCELULAR,'
      '  ?ALUNO_MANUT.ALUNOEMAIL,'
      '  ?ALUNO_MANUT.ALUNOOBS,'
      '  ?ALUNO_MANUT.CIDADECODIGO,'
      '  ?ALUNO_MANUT.NACIONALIDADECODIGO,'
      '  ?ALUNO_MANUT.PROFISSAOCODIGO,'
      '  ?ALUNO_MANUT.VENDEDORCODIGO,'
      '  ?ALUNO_MANUT.TIPODOCCODIGO,'
      '  ?ALUNO_MANUT.PACAO')
    AutoDefineParams = False
    ParamNames.Strings = (
      'ALUNO_MANUT.ALUNOCODIGO'
      'ALUNO_MANUT.ALUNONOME'
      'ALUNO_MANUT.ALUNOMAE'
      'ALUNO_MANUT.ALUNOPAI'
      'ALUNO_MANUT.ALUNODATANASC'
      'ALUNO_MANUT.ALUNOCPF'
      'ALUNO_MANUT.ALUNOSEXO'
      'ALUNO_MANUT.ALUNOSANGUE'
      'ALUNO_MANUT.ALUNODOADOR'
      'ALUNO_MANUT.ALUNODOCNUM'
      'ALUNO_MANUT.ALUNODOCORGEXP'
      'ALUNO_MANUT.ALUNODOCUF'
      'ALUNO_MANUT.ALUNOESCOLARIDADE'
      'ALUNO_MANUT.ALUNOESTADOCIVIL'
      'ALUNO_MANUT.ALUNOENDERECO'
      'ALUNO_MANUT.ALUNONUMERO'
      'ALUNO_MANUT.ALUNOBAIRRO'
      'ALUNO_MANUT.ALUNOCEP'
      'ALUNO_MANUT.ALUNOTELEFONE'
      'ALUNO_MANUT.ALUNOCELULAR'
      'ALUNO_MANUT.ALUNOEMAIL'
      'ALUNO_MANUT.ALUNOOBS'
      'ALUNO_MANUT.CIDADECODIGO'
      'ALUNO_MANUT.NACIONALIDADECODIGO'
      'ALUNO_MANUT.PROFISSAOCODIGO'
      'ALUNO_MANUT.VENDEDORCODIGO'
      'ALUNO_MANUT.TIPODOCCODIGO'
      'ALUNO_MANUT.PACAO')
    StoredProcName = 'ALUNO_MANUT'
    Left = 440
    Top = 168
  end
end
